unit ftecnicocadastro;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, DBCtrls, ExtCtrls, Buttons;

type

  { TFormTecnicoCadastro }

  TFormTecnicoCadastro = class(TForm)
    ButtonInserir: TBitBtn;
    ButtonExcluir: TBitBtn;
    ButtonEditar: TBitBtn;
    ButtonSalvar: TBitBtn;
    ButtonCancelar: TBitBtn;
    ButtonSair: TBitBtn;
    ButtonBuscarMunicipio: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBid_municipio: TDBEdit;
    DBnome_municipio: TDBEdit;
    DBUF: TDBEdit;
    DBEditBairroTecnico: TDBEdit;
    DBEditCEP: TDBEdit;
    DBEditCreaTecnico: TDBEdit;
    DBEditEmailTecnico: TDBEdit;
    DBEditLogradouroTecnico: TDBEdit;
    DBEditNomeTecnico: TDBEdit;
    DBEditTelefoneTecnico: TDBEdit;
    DBNavigator2: TDBNavigator;
    GroupBox1: TPanel;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Panel1: TPanel;
    procedure ButtonBuscarMunicipioClick(Sender: TObject);
    procedure ButtonCancelarClick(Sender: TObject);
    procedure ButtonEditarClick(Sender: TObject);
    procedure ButtonExcluirClick(Sender: TObject);
    procedure ButtonInserirClick(Sender: TObject);
    procedure ButtonSairClick(Sender: TObject);
    procedure ButtonSalvarClick(Sender: TObject);
    procedure ControlaBotoes(Edicao: boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormTecnicoCadastro: TFormTecnicoCadastro;

implementation

uses dmprincipal, dmcadastro, dmlaboratorio;

{ TFormTecnicoCadastro }

procedure TFormTecnicoCadastro.ButtonBuscarMunicipioClick(Sender: TObject);
var
  municipio: TDadosMunicipio;
begin
  municipio := DataCadastro.MunicipioBusca();
  DBid_municipio.Text := IntToStr(municipio.id_municipio);
  DBnome_municipio.Text := municipio.nome_municipio;
  DBUF.Text := municipio.uf;
end;

procedure TFormTecnicoCadastro.ButtonCancelarClick(Sender: TObject);
begin
  DataLaboratorio.TecnicoCancelar();
  ControlaBotoes(False);
end;

procedure TFormTecnicoCadastro.ButtonEditarClick(Sender: TObject);
begin
  DataLaboratorio.TecnicoEditar();
  ControlaBotoes(True);
end;

procedure TFormTecnicoCadastro.ButtonExcluirClick(Sender: TObject);
begin
  if (MessageDlg('Confirmação', 'Deseja excluir o técnico cadastrado?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
  begin
    DataLaboratorio.TecnicoExcluir();
    ControlaBotoes(False);
  end;
end;

procedure TFormTecnicoCadastro.ButtonInserirClick(Sender: TObject);
begin
  DataLaboratorio.TecnicoInserir();
  ControlaBotoes(True);
end;

procedure TFormTecnicoCadastro.ButtonSairClick(Sender: TObject);
begin
  Close;
end;

procedure TFormTecnicoCadastro.ButtonSalvarClick(Sender: TObject);
begin
  DataLaboratorio.TecnicoSalvar();
  ControlaBotoes(False);
end;

procedure TFormTecnicoCadastro.ControlaBotoes(Edicao: boolean);
begin
  if Edicao then
  begin
    ButtonSair.Enabled := False;
    ButtonEditar.Enabled := False;
    ButtonExcluir.Enabled := False;
    ButtonSalvar.Enabled := True;
    ButtonCancelar.Enabled := True;
    ButtonInserir.Enabled := False;
  end
  else
  begin
    ButtonSair.Enabled := True;
    ButtonEditar.Enabled := True;
    ButtonExcluir.Enabled := True;
    ButtonSalvar.Enabled := False;
    ButtonInserir.Enabled := True;
    ButtonCancelar.Enabled := False;
  end;
end;

initialization
  {$I ftecnicocadastro.lrs}

end.
